demand /string
supplied-by
: parse-line ( "...<cr>" -- c-addr u )
	source >in @  over >in !  /string ;
